home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_XmGraph.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  33.8 KB  |  1,100 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_XmGraph.c
  5. * RCS:          $Header: wc_XmGraph.c,v 1.4 91/03/15 01:13:03 mayer Exp $
  6. * Description:  Interface to HP's "Graph Widget" -- this widget is currently
  7. *               available only within HP, but may be offered in HP's MotifPlus
  8. *               user-contributed package. Within HP, you can get XmGraph by doing
  9. *               'ninstall -vhhplday XmGraph'...
  10. * Author:       Niels Mayer & Audrey Ishizaki, HPLabs
  11. * Created:      Sun Feb 18 19:32:38 1990
  12. * Modified:     Thu Oct  3 22:56:04 1991 (Niels Mayer) mayer@hplnpm
  13. * Language:     C
  14. * Package:      N/A
  15. * Status:       X11r5 contrib tape release
  16. *
  17. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  18. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  19. *
  20. * Permission to use, copy, modify, distribute, and sell this software and its
  21. * documentation for any purpose is hereby granted without fee, provided that
  22. * the above copyright notice appear in all copies and that both that
  23. * copyright notice and this permission notice appear in supporting
  24. * documentation, and that the name of Hewlett-Packard and David Betz not be
  25. * used in advertising or publicity pertaining to distribution of the software
  26. * without specific, written prior permission.  Hewlett-Packard and David Betz
  27. * make no representations about the suitability of this software for any
  28. * purpose. It is provided "as is" without express or implied warranty.
  29. *
  30. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  31. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  32. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  33. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  34. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  35. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  36. * PERFORMANCE OF THIS SOFTWARE.
  37. *
  38. * See ./winterp/COPYRIGHT for information on contacting the authors.
  39. * 
  40. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  41. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  42. *
  43. ********************************************************************************
  44. */
  45. static char rcs_identity[] = "@(#)$Header: wc_XmGraph.c,v 1.4 91/03/15 01:13:03 mayer Exp $";
  46.  
  47. #include <stdio.h>
  48. #include <Xm/Xm.h>
  49. #include <Xm/Graph.h>
  50. #include <Xm/Arc.h>
  51. #include "winterp.h"
  52. #include "user_prefs.h"
  53. #include "xlisp/xlisp.h"
  54. #include "w_funtab.h"
  55.  
  56.  
  57. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  58. extern LVAL true;
  59.  
  60. /******************************************************************************
  61.  ******************************************************************************/
  62. static LVAL Wcxmg_WidgetList_To_Lisp_Vector(wlist, size)
  63.      WidgetList wlist;
  64.      int        size;
  65. {
  66.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ(); /* w_classes.c */
  67.   LVAL result;
  68.   int i;
  69.   
  70.   if (!wlist || !size)
  71.     return (NIL);
  72.  
  73.   xlsave1(result);
  74.   result = newvector(size);
  75.   for (i = 0; i < size; i++)
  76.     setelement(result, i, Wcls_WidgetID_To_WIDGETOBJ((wlist[i])));
  77.   xlpop();
  78.   return (result);
  79. }
  80.  
  81.  
  82. /*****************************************************************************
  83.  * (send XM_GRAPH_WIDGET_CLASS :new
  84.  *                           [:managed/:unmanaged]
  85.  *                           [:scrolled]
  86.  *                           [<name>]
  87.  *                           <parent> 
  88.  *                           [:XMN_<arg1> <val1>]
  89.  *                           [. . .             ]
  90.  *                           [:XMN_<argN> <valN>])
  91.  *
  92.  * The optional keyword submessage :managed will cause a subsequent call
  93.  * to XtManageChild(). If the submessage :unmanaged is present, or no
  94.  * submessage, then XtManageChild() won't be called, and the resulting
  95.  * widget will be returned unmanaged.
  96.  *
  97.  *     (send XM_GRAPH_WIDGET_CLASS :new ...)
  98.  *     --> XmCreateGraph();
  99.  *     (send XM_GRAPH_WIDGET_CLASS :new :managed ...)
  100.  *     --> XmCreateManagedGraph();
  101.  *     (send XM_GRAPH_WIDGET_CLASS :new :scrolled ...)
  102.  *     --> XmCreateScrolledGraph();
  103.  *        Note: extra convenience fn XmCreateScrolledGraph() puts the
  104.  *      graph widget inside a scrolled window but returns the graph widget.
  105.  ****************************************************************************/
  106. LVAL Xm_Graph_Widget_Class_Method_ISNEW()
  107. {
  108.   extern ArgList Wres_Get_LispArglist(); /* from w_resources.c */
  109.   extern void    Wres_Free_C_Arglist_Data(); /* from w_resources.c */
  110.   extern LVAL k_managed, k_unmanaged, k_scrolled;
  111.   LVAL self, o_parent;
  112.   char* name;
  113.   Boolean managed_p, scrolled_p;
  114.   Widget parent_widget_id, widget_id;
  115.  
  116.   self = xlgaobject();        /* NOTE: xlobj.c:clnew() returns an OBJECT; if this method
  117.                    returns successfully, it will return a WIDGETOBJ */
  118.  
  119.   /* get optional managed/unmanaged arg */
  120.   if (moreargs() && ((*xlargv == k_managed) || (*xlargv == k_unmanaged)))
  121.     managed_p = (nextarg() == k_managed);
  122.   else
  123.     managed_p = FALSE;        /* by default don't call XtManageChild() */
  124.  
  125.   /* get optional :scrolled arg */
  126.   if (moreargs() && (*xlargv == k_scrolled)) {
  127.     nextarg();
  128.     scrolled_p = TRUE;
  129.   }
  130.   else
  131.     scrolled_p = FALSE;        /* by default, we don't want a scroled graphwidget */
  132.  
  133.   /* get optional <name> arg */
  134.   if (moreargs() && (stringp(*xlargv)))
  135.     name = (char*) getstring(nextarg());
  136.   else
  137.     name = "";            /* default name */
  138.  
  139.   /* get required <parent> widget-object arg */
  140.   parent_widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&o_parent);
  141.  
  142.   /*
  143.    * Store the widget object <self> in the XmNuserData resource on the
  144.    * widget. This will allow us to retrieve the widget object from Xtoolkit
  145.    * functions returning widget ID's without having to keep around a table
  146.    * of widgetID-->widget-objects.
  147.    */
  148.    ARGLIST_RESET(); ARGLIST_ADD(XmNuserData, (XtArgVal) self); 
  149.  
  150.   if (moreargs()) {        /* if there are more arguments, */
  151.     Cardinal xt_numargs;    /* then we have some extra widget resources to set */
  152.     ArgList xt_arglist = Wres_Get_LispArglist(self, parent_widget_id, ARGLIST(), &xt_numargs);
  153.     if (scrolled_p)
  154.       widget_id = XmCreateScrolledGraph(parent_widget_id, name, xt_arglist, xt_numargs);
  155.     else
  156.       widget_id = XmCreateGraph(parent_widget_id, name, xt_arglist, xt_numargs);
  157.     Wres_Free_C_Arglist_Data();
  158.   }
  159.   else 
  160.     if (scrolled_p)
  161.       widget_id = XmCreateScrolledGraph(parent_widget_id, name, ARGLIST());
  162.     else
  163.       widget_id = XmCreateGraph(parent_widget_id, name, ARGLIST());
  164.  
  165.   Wcls_Initialize_WIDGETOBJ(self, widget_id);
  166.  
  167.   if (managed_p)
  168.     XtManageChild(widget_id);
  169.  
  170. #ifdef DEBUG_WINTERP_1
  171.   Wcls_Print_WidgetObj_Info(self);
  172. #endif
  173.   return (self);
  174. }
  175.  
  176.  
  177. /*****************************************************************************
  178.  * (send XM_ARC_WIDGET_CLASS :new
  179.  *                           [:managed/:unmanaged]
  180.  *                           [:scrolled]
  181.  *                           [<name>]
  182.  *                           <parent> 
  183.  *                           [:XMN_<arg1> <val1>]
  184.  *                           [. . .             ]
  185.  *                           [:XMN_<argN> <valN>])
  186.  *
  187.  * The optional keyword submessage :managed will cause a subsequent call
  188.  * to XtManageChild(). If the submessage :unmanaged is present, or no
  189.  * submessage, then XtManageChild() won't be called, and the resulting
  190.  * widget will be returned unmanaged.
  191.  *
  192.  *     (send XM_ARC_WIDGET_CLASS :new ...)
  193.  *     --> XmCreateArc();
  194.  *     (send XM_GRAPH_WIDGET_CLASS :new :managed ...)
  195.  *     --> XmCreateArc();
  196.  *
  197.  * Note: the arc widget is kind of weird... it should only be created by the
  198.  * "convenience function" XmCreateArc() which always creates a managed arc.
  199.  * Thus, the argument :managed or :unmanaged is completely ignored here.
  200.  * Not anymore, with doug's latest XmGraph...
  201.  ****************************************************************************/
  202. LVAL Xm_Arc_Widget_Class_Method_ISNEW()
  203. {
  204.   extern ArgList Wres_Get_LispArglist(); /* from w_resources.c */
  205.   extern void    Wres_Free_C_Arglist_Data(); /* from w_resources.c */
  206.   extern LVAL k_managed, k_unmanaged;
  207.   LVAL self, o_parent;
  208.   char* name;
  209.   Boolean managed_p;
  210.   Widget parent_widget_id, widget_id;
  211.  
  212.   self = xlgaobject();        /* NOTE: xlobj.c:clnew() returns an OBJECT; if this method
  213.                    returns successfully, it will return a WIDGETOBJ */
  214.  
  215.   /* get optional managed/unmanaged arg */
  216.   if (moreargs() && ((*xlargv == k_managed) || (*xlargv == k_unmanaged)))
  217.     managed_p = (nextarg() == k_managed);
  218.   else
  219.     managed_p = FALSE;        /* by default don't call XtManageChild() */
  220.     /* for this particular widget creation case we just swallow the arg and ignore it 
  221.        we deal with this arg just for compatibility with other widget creators in WINTERP
  222.        nextarg();
  223.        This changed with the latest XmGraph (aud)
  224.     */
  225.  
  226.   /* get optional <name> arg */
  227.   if (moreargs() && (stringp(*xlargv)))
  228.     name = (char*) getstring(nextarg());
  229.   else
  230.     name = "";            /* default name */
  231.  
  232.   /* get required <parent> widget-object arg */
  233.   parent_widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&o_parent);
  234.  
  235.   /*
  236.    * Store the widget object <self> in the XmNuserData resource on the
  237.    * widget. This will allow us to retrieve the widget object from Xtoolkit
  238.    * functions returning widget ID's without having to keep around a table
  239.    * of widgetID-->widget-objects.
  240.    */
  241.    ARGLIST_RESET(); ARGLIST_ADD(XmNuserData, (XtArgVal) self); 
  242.  
  243.   if (moreargs()) {        /* if there are more arguments, */
  244.     Cardinal xt_numargs;    /* then we have some extra widget resources to set */
  245.     ArgList xt_arglist = Wres_Get_LispArglist(self, parent_widget_id, ARGLIST(), &xt_numargs);
  246.     widget_id = XmCreateArc(parent_widget_id, name, xt_arglist, xt_numargs);
  247.     Wres_Free_C_Arglist_Data();
  248.   }
  249.   else 
  250.     widget_id = XmCreateArc(parent_widget_id, name, ARGLIST());
  251.  
  252.   Wcls_Initialize_WIDGETOBJ(self, widget_id);
  253.   if (managed_p)
  254.     XtManageChild(widget_id);
  255.  
  256. #ifdef DEBUG_WINTERP_1
  257.   Wcls_Print_WidgetObj_Info(self);
  258. #endif
  259.   return (self);
  260. }
  261.  
  262.  
  263. /******************************************************************************
  264.  * typedef struct
  265.  * {
  266.  *    int     reason;
  267.  *    XEvent    *event;
  268.  *    WidgetList     selected_widgets;
  269.  *    int            num_selected_widgets;
  270.  *    WidgetList     selected_arcs;
  271.  *    int            num_selected_arcs;
  272.  *     Widget         widget;
  273.  *    Widget         old_to;
  274.  *    Widget         old_from;
  275.  *    Widget         new_to;
  276.  *    Widget         new_from;
  277.  *    Boolean        doit;
  278.  * } XmGraphCallbackStruct;
  279.  *******************************************************************************/
  280. static LVAL s_CALLBACK_SELECTED_WIDGETS, s_CALLBACK_NUM_SELECTED_WIDGETS,
  281.   s_CALLBACK_SELECTED_ARCS, s_CALLBACK_NUM_SELECTED_ARCS, s_CALLBACK_OLD_TO,
  282.   s_CALLBACK_OLD_FROM, s_CALLBACK_NEW_TO, s_CALLBACK_NEW_FROM;
  283. static void Lexical_Bindings_For_XmGraphCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  284.      LVAL bindings_list;    /* a list of symbols to which values from XmGraphCallbackStruct are bound */
  285.      LVAL lexical_env;        
  286.      XmGraphCallbackStruct* cd;
  287.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  288. {
  289.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT; /* w_callbacks.c */
  290.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  291.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ(); /* w_classes.c */
  292.   register LVAL s_bindname;
  293.  
  294.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  295.  
  296.     s_bindname = car(bindings_list);
  297.  
  298. #ifdef THE_FOLLOWING_CODE_IS_COMMENTED_OUT
  299. fprintf(stderr, "callback_widget: %x\n", o_widget);
  300. fprintf(stderr, "callback_reason: %x\n", cd->reason);
  301. fprintf(stderr, "callback_event: %x\n", cd->event);
  302. fprintf(stderr, "callback_selected_widgets[0]: %x\n", cd->selected_widgets[0]);
  303. fprintf(stderr, "callback_num_selected_widgets: %d\n", cd->num_selected_widgets);
  304. fprintf(stderr, "callback_selected_arcs[0]: %x\n", cd->selected_arcs[0]);
  305. fprintf(stderr, "callback_num_selected_arcs: %d\n", cd->num_selected_arcs);
  306. fprintf(stderr, "callback_old_to: %x\n", cd->old_to);
  307. fprintf(stderr, "callback_old_from: %x\n", cd->old_from);
  308. fprintf(stderr, "callback_new_to: %x\n", cd->new_to);
  309. fprintf(stderr, "callback_new_from: %x\n", cd->new_from);
  310. #endif                /* THE_FOLLOWING_CODE_IS_COMMENTED_OUT */
  311.  
  312.     if (s_bindname == s_CALLBACK_WIDGET) {
  313.       xlpbind(s_bindname, o_widget, lexical_env); /* add binding to lexical_env */
  314.     }
  315.     else if (s_bindname == s_CALLBACK_REASON) {
  316.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  317.     }
  318.     else if (s_bindname == s_CALLBACK_XEVENT) {
  319.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  320.     }
  321.     else if (s_bindname == s_CALLBACK_SELECTED_WIDGETS) {
  322.       xlpbind(s_bindname, Wcxmg_WidgetList_To_Lisp_Vector(cd->selected_widgets, cd->num_selected_widgets), lexical_env);    /* the vector and it's constituent XmStrings may be freed later via gc */
  323.     }
  324.     else if (s_bindname == s_CALLBACK_NUM_SELECTED_WIDGETS) {
  325.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->num_selected_widgets), lexical_env);
  326.     }
  327.     else if (s_bindname == s_CALLBACK_SELECTED_ARCS) {
  328.       xlpbind(s_bindname, Wcxmg_WidgetList_To_Lisp_Vector(cd->selected_arcs, cd->num_selected_arcs), lexical_env);    /* the vector and it's constituent XmStrings may be freed later via gc */
  329.     }
  330.     else if (s_bindname == s_CALLBACK_NUM_SELECTED_ARCS) {
  331.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->num_selected_arcs), lexical_env);
  332.     }
  333.     else if (s_bindname == s_CALLBACK_OLD_TO) {
  334.       xlpbind(s_bindname, Wcls_WidgetID_To_WIDGETOBJ(cd->old_to), lexical_env);
  335.     }
  336.     else if (s_bindname == s_CALLBACK_OLD_FROM) {
  337.       xlpbind(s_bindname, Wcls_WidgetID_To_WIDGETOBJ(cd->old_from), lexical_env);
  338.     }
  339.     else if (s_bindname == s_CALLBACK_NEW_TO) {
  340.       xlpbind(s_bindname, Wcls_WidgetID_To_WIDGETOBJ(cd->new_to), lexical_env);
  341.     }
  342.     else if (s_bindname == s_CALLBACK_NEW_FROM) {
  343.       xlpbind(s_bindname, Wcls_WidgetID_To_WIDGETOBJ(cd->new_from), lexical_env);
  344.     }
  345.     else {
  346.       extern char temptext[];    /* from winterp.c */
  347.       sprintf(temptext,
  348.           "Unknown binding name in XmGraphCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s %s %s %s %s %s %s].",
  349.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  350.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  351.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  352.           (char*) getstring(getpname(s_CALLBACK_SELECTED_WIDGETS)),
  353.           (char*) getstring(getpname(s_CALLBACK_NUM_SELECTED_WIDGETS)),
  354.           (char*) getstring(getpname(s_CALLBACK_SELECTED_ARCS)),
  355.           (char*) getstring(getpname(s_CALLBACK_NUM_SELECTED_ARCS)),
  356.           (char*) getstring(getpname(s_CALLBACK_OLD_TO)),
  357.           (char*) getstring(getpname(s_CALLBACK_OLD_FROM)),
  358.           (char*) getstring(getpname(s_CALLBACK_NEW_TO)),
  359.           (char*) getstring(getpname(s_CALLBACK_NEW_FROM)));
  360.       xlerror(temptext, s_bindname);
  361.     }
  362.   }
  363. }
  364.  
  365.  
  366. /******************************************************************************
  367.  * This is called indirectly via XtAddCallback() for callbacks returning an
  368.  * XmGraphCallbackStruct as call_data.
  369.  ******************************************************************************/
  370. void XmGraphCallbackStruct_Callbackproc(widget, client_data, call_data)
  371.      Widget    widget;
  372.      XtPointer client_data;
  373.      XtPointer call_data;
  374. {
  375.   extern void Wcb_Meta_Callbackproc(); /* w_callbacks.c */
  376.  
  377.   Wcb_Meta_Callbackproc(client_data, call_data,
  378.             Lexical_Bindings_For_XmGraphCallbackStruct,
  379.             NULL);    /* FIX: the graph callback allows setting of DOIT field */
  380. }
  381.  
  382.  
  383. /*
  384.  * The Graph widget receives the values from XmGraphCallbackStruct:
  385.  * CALLBACK_REASON
  386.  * CALLBACK_EVENT
  387.  * CALLBACK_INTERACTIVE (not available)
  388.  * CALLBACK_SELECTED_WIDGETS (list)
  389.  * CALLBACK_NUM_SELECTED_WIDGETS
  390.  * CALLBACK_SELECTED_ARCS (list)
  391.  * CALLBACK_NUM_SELECTED_ARCS
  392.  * CALLBACK_WIDGET
  393.  * CALLBACK_OLD_TO
  394.  * CALLBACK_OLD_FROM
  395.  * CALLBACK_NEW_TO
  396.  * CALLBACK_NEW_FROM
  397.  * CALLBACK_DOIT  (not available)
  398.  */
  399. LVAL Xm_Graph_Widget_Class_Method_ADD_CALLBACK()
  400. {
  401.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  402.  
  403.   return (Wcb_Meta_Method_Add_Callback(XmGraphCallbackStruct_Callbackproc, FALSE));
  404. }
  405.  
  406. LVAL Xm_Graph_Widget_Class_Method_SET_CALLBACK()
  407. {
  408.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  409.  
  410.   return (Wcb_Meta_Method_Add_Callback(XmGraphCallbackStruct_Callbackproc, TRUE));
  411. }
  412.  
  413.  
  414. /*
  415.  * (send graph_widget :center_around_widget widget)
  416.  */
  417. LVAL Xm_Graph_Widget_Class_Method_CENTER_AROUND_WIDGET ()
  418. {
  419.   LVAL self, w;
  420.   Widget graph;
  421.   Widget node;
  422.  
  423.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  424.   node = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w);
  425.   xllastarg();
  426.  
  427.   XmGraphCenterAroundWidget(graph, node);
  428.  
  429.   return (self);            /* NPM */
  430. }
  431. /*
  432.  *
  433.  */
  434. LVAL Xm_Graph_Widget_Class_Method_DESTROY_ALL_ARCS()
  435. {
  436.   LVAL self;
  437.   Widget graph;
  438.  
  439.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  440.   xllastarg();
  441.  
  442.   XmGraphDestroyAllArcs(graph);
  443.  
  444.   return (self);            /* NPM */
  445. }
  446.  
  447. /*
  448.  *
  449.  */
  450. LVAL Xm_Graph_Widget_Class_Method_DESTROY_ALL_NODES()
  451. {
  452.   LVAL self;
  453.   Widget graph;
  454.  
  455.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  456.   xllastarg();
  457.  
  458.   XmGraphDestroyAllNodes(graph);
  459.  
  460.   return (self);            /* NPM */
  461. }
  462. /*
  463.  *
  464.  */
  465. LVAL Xm_Graph_Widget_Class_Method_DESTROY_SELECTED_ARCS_OR_NODES()
  466. {
  467.   LVAL self;
  468.   Widget graph;
  469.  
  470.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  471.   xllastarg();
  472.  
  473.   XmGraphDestroySelectedArcsOrNodes(graph);
  474.  
  475.   return (self);            /* NPM */
  476. }
  477. /*
  478.  *
  479.  */
  480. LVAL Xm_Graph_Widget_Class_Method_GET_ARCS()
  481. {
  482.   LVAL self;
  483.   Widget graph;
  484.   WidgetList alist;
  485.   int num_arcs;
  486.   
  487.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  488.   xllastarg();
  489.  
  490.   alist = XmGraphGetArcs(graph, &num_arcs);
  491.   return (Wcxmg_WidgetList_To_Lisp_Vector(alist, num_arcs));
  492. }
  493. /*
  494.  *
  495.  */
  496. LVAL Xm_Graph_Widget_Class_Method_GET_NODES()
  497. {
  498.   LVAL self;
  499.   Widget graph;
  500.   WidgetList nlist;
  501.   int n_nodes;
  502.   
  503.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  504.   xllastarg();
  505.  
  506.   nlist = XmGraphGetNodes (graph, &n_nodes);
  507.   return (Wcxmg_WidgetList_To_Lisp_Vector(nlist, n_nodes));
  508. }
  509. /*
  510.  *
  511.  */
  512. LVAL Xm_Graph_Widget_Class_Method_GET_ARCS_BETWEEN_NODES()
  513. {
  514.   LVAL self, f, t;
  515.   Widget graph;
  516.   Widget from, to;
  517.   WidgetList alist;
  518.   int num_arcs;
  519.   
  520.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  521.   from = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&f);
  522.   to = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&t);
  523.   xllastarg();
  524.  
  525.   alist = XmGraphGetArcsBetweenNodes (graph, from, to, &num_arcs);
  526.   return (Wcxmg_WidgetList_To_Lisp_Vector(alist, num_arcs));
  527. }
  528. /*
  529.  * returns a vector of values
  530.  */
  531. LVAL Xm_Graph_Widget_Class_Method_GET_NODE_ARCS()
  532. {
  533.   LVAL self, w, result, alistto, alistfrom;
  534.   Widget graph;
  535.   Widget widget;
  536.   int i, n_from, n_to;
  537.   WidgetList fromlist, tolist;
  538.   
  539.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  540.   widget = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w);
  541.   xllastarg();
  542.  
  543.   XmGraphGetNodeArcs (graph, widget, &fromlist, &tolist, &n_from, &n_to);
  544.  
  545.   xlsave1(result);
  546.   result = newvector(4);
  547.   setelement(result, 0, Wcxmg_WidgetList_To_Lisp_Vector(fromlist, n_from));
  548.   setelement(result, 1, Wcxmg_WidgetList_To_Lisp_Vector(tolist, n_to));
  549.   setelement(result, 2, cvfixnum(n_from));
  550.   setelement(result, 3, cvfixnum(n_to));
  551.   xlpop();            /* NPM */
  552.   return (result);
  553. }
  554. /*
  555.  *
  556.  */
  557. LVAL Xm_Graph_Widget_Class_Method_GET_ROOTS()
  558. {
  559.   LVAL self;
  560.   Widget graph;
  561.   Widget node;
  562.   WidgetList rlist;
  563.   int num_nodes;
  564.   
  565.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  566.   xllastarg();
  567.  
  568.   rlist = XmGraphGetRoots (graph, &num_nodes);
  569.   return (Wcxmg_WidgetList_To_Lisp_Vector(rlist, num_nodes));
  570. }
  571. /*
  572.  *
  573.  */
  574. LVAL Xm_Graph_Widget_Class_Method_GET_SELECTED_ARCS()
  575. {
  576.   LVAL self;
  577.   Widget graph;
  578.   WidgetList alist;
  579.   int num_arcs;
  580.   
  581.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  582.   xllastarg();
  583.  
  584.   alist = XmGraphGetSelectedArcs (graph, &num_arcs);
  585.   return (Wcxmg_WidgetList_To_Lisp_Vector(alist, num_arcs));
  586. }
  587. /*
  588.  *
  589.  */
  590. LVAL Xm_Graph_Widget_Class_Method_GET_SELECTED_NODES()
  591. {
  592.   LVAL self;
  593.   Widget graph;
  594.   WidgetList nlist;
  595.   int num;
  596.   
  597.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  598.   xllastarg();
  599.  
  600.   nlist = XmGraphGetSelectedNodes (graph, &num);
  601.   return (Wcxmg_WidgetList_To_Lisp_Vector(nlist, num));
  602. }
  603. /*
  604.  *
  605.  */
  606. LVAL Xm_Graph_Widget_Class_Method_INPUT_OVER_ARC()
  607. {
  608.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ(); /* w_classes.c */
  609.   LVAL self;
  610.   Widget graph;
  611.   int x_pos, y_pos;
  612.   
  613.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  614.   x_pos = (int) getfixnum(xlgafixnum());
  615.   y_pos = (int) getfixnum(xlgafixnum());
  616.   xllastarg();
  617.  
  618.   return (Wcls_WidgetID_To_WIDGETOBJ(XmGraphInputOverArc(graph, x_pos, y_pos)));
  619. }
  620. /*
  621.  *  FIX
  622.  */
  623. LVAL Xm_Graph_Widget_Class_Method_INSERT_ROOTS()
  624. {
  625. }
  626. /*
  627.  *
  628.  */
  629. LVAL Xm_Graph_Widget_Class_Method_IS_POINT_IN_ARC()
  630. {
  631.   LVAL self;
  632.   Widget arc;
  633.   int x, y;
  634.  
  635.   arc = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  636.   x = (int) getfixnum(xlgafixnum());
  637.   y = (int) getfixnum(xlgafixnum());
  638.   xllastarg();
  639.  
  640.   return (XmGraphIsPointInArc(arc, x, y) ? true : NIL);
  641. }
  642. /*
  643.  *
  644.  */
  645. LVAL Xm_Graph_Widget_Class_Method_IS_SELECTED_ARC()
  646. {
  647.   LVAL self, a;
  648.   Widget graph;
  649.   Widget arc;
  650.   
  651.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  652.   arc = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&a);
  653.   xllastarg();
  654.  
  655.   return (XmGraphIsSelectedArc(graph, arc)? true : NIL);
  656. }
  657. /*
  658.  *
  659.  */
  660. LVAL Xm_Graph_Widget_Class_Method_IS_SELECTED_NODE()
  661. {
  662.   LVAL self, w;
  663.   Widget graph;
  664.   Widget node;
  665.   
  666.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  667.   node = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w);
  668.   xllastarg();
  669.  
  670.   return (XmGraphIsSelectedNode(graph, node) ? true : NIL);
  671. }
  672. /*
  673.  *
  674.  */
  675. LVAL Xm_Graph_Widget_Class_Method_MOVE_ARC()
  676. {
  677.   LVAL self, a, f, t;
  678.   Widget graph;
  679.   Widget arc;
  680.   Widget from, to;
  681.   Boolean rval;
  682.   
  683.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  684.   arc = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&a);
  685.   from = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&f);
  686.   to = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&t);
  687.   xllastarg();
  688.  
  689.   return (XmGraphMoveArc(graph, arc, from, to) ? true : NIL);
  690. }
  691. /*
  692.  *
  693.  */
  694. LVAL Xm_Graph_Widget_Class_Method_MOVE_NODE()
  695. {
  696.   LVAL self, n, f, t;
  697.   Widget graph;
  698.   Widget node, from, to;
  699.  
  700.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  701.   node = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&n);
  702.   from = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&f);
  703.   to = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&t);
  704.   xllastarg();
  705.  
  706.   return (XmGraphMoveNode(graph, node, from, to) ? true : NIL);
  707. }
  708. /*
  709.  *
  710.  */
  711. LVAL Xm_Graph_Widget_Class_Method_NUM_ARCS()
  712. {
  713.   LVAL self;
  714.   Widget graph;
  715.   
  716.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  717.   xllastarg();
  718.  
  719.   return (cvfixnum((FIXTYPE) XmGraphNumArcs(graph)));
  720. }
  721. /*
  722.  *
  723.  */
  724. LVAL Xm_Graph_Widget_Class_Method_NUM_NODES()
  725. {
  726.   LVAL self;
  727.   Widget graph;
  728.   
  729.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  730.   xllastarg();
  731.  
  732.   return (cvfixnum((FIXTYPE) XmGraphNumNodes(graph)));
  733. }
  734. /*
  735.  *  returns a vector of two values
  736.  */
  737. LVAL Xm_Graph_Widget_Class_Method_NUM_NODE_ARCS()
  738. {
  739.   LVAL self, w, result;
  740.   Widget graph;
  741.   Widget node;
  742.   int n_from, n_to;
  743.  
  744.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  745.   node = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w);
  746.   xllastarg();
  747.  
  748.   XmGraphNumNodeArcs (graph, w, &n_from, &n_to);
  749.  
  750.   xlsave1(result);
  751.   result = newvector(2);
  752.   setelement(result, 0, cvfixnum(n_from));
  753.   setelement(result, 1, cvfixnum(n_to));
  754.   xlpop();            /* NPM */
  755.   return (result);
  756. }
  757. /*
  758.  *
  759.  */
  760. LVAL Xm_Graph_Widget_Class_Method_NUM_ROOTS()
  761. {
  762.   LVAL self;
  763.   Widget graph;
  764.   
  765.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  766.   xllastarg();
  767.  
  768.   return (cvfixnum((FIXTYPE) XmGraphNumRoots(graph)));
  769. }
  770. /*
  771.  *
  772.  */
  773. LVAL Xm_Graph_Widget_Class_Method_NUM_SELECTED_ARCS()
  774. {
  775.   LVAL self;
  776.   Widget graph;
  777.   
  778.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  779.   xllastarg();
  780.  
  781.   return (cvfixnum((FIXTYPE) XmGraphNumSelectedArcs(graph)));
  782. }
  783. /*
  784.  *
  785.  */
  786. LVAL Xm_Graph_Widget_Class_Method_NUM_SELECTED_NODES()
  787. {
  788.   LVAL self;
  789.   Widget graph;
  790.   
  791.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  792.   xllastarg();
  793.  
  794.   return (cvfixnum((FIXTYPE) XmGraphNumSelectedNodes(graph)));
  795. }
  796. /*
  797.  *
  798.  */
  799. LVAL Xm_Graph_Widget_Class_Method_MOVE_ALL()
  800. {
  801.   LVAL self;
  802.   Widget graph;
  803.   int delta_x, delta_y;
  804.   
  805.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  806.   delta_x = (int) getfixnum(xlgafixnum());
  807.   delta_y = (int) getfixnum(xlgafixnum());
  808.   xllastarg();
  809.  
  810.   XmGraphMoveAll(graph, delta_x, delta_y);
  811.  
  812.   return (self);            /* NPM */
  813. }
  814. /*
  815.  *
  816.  */
  817. LVAL Xm_Graph_Widget_Class_Method_LAYOUT()
  818. {
  819.   LVAL self;
  820.   Widget graph;
  821.   
  822.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  823.   xllastarg();
  824.  
  825.   XmGraphLayout(graph);
  826.  
  827.   return (self);            /* NPM */
  828. }
  829. /*
  830.  *
  831.  */
  832. LVAL Xm_Graph_Widget_Class_Method_RELAY_SUBGRAPH()
  833. {
  834.   LVAL self, w;
  835.   Widget graph;
  836.   Widget node;
  837.  
  838.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  839.   node = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w);
  840.   xllastarg();
  841.  
  842.   XmGraphRelaySubgraph(graph, node);
  843.  
  844.   return (self);            /* NPM */
  845. }
  846. /*
  847.  *
  848.  */
  849. LVAL Xm_Graph_Widget_Class_Method_REMOVE_ARC_BETWEEN_NODES()
  850. {
  851.   LVAL self, w1, w2;
  852.   Widget graph;
  853.   Widget widget1, widget2;
  854.   
  855.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  856.   widget1 = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w1);
  857.   widget2 = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&w2);
  858.   xllastarg();
  859.  
  860.   XmGraphRemoveArcBetweenNodes(graph, widget1, widget2);
  861.  
  862.   return (self);            /* NPM */
  863. }
  864. /*
  865.  * FIX: 
  866.  */
  867. LVAL Xm_Graph_Widget_Class_Method_REMOVE_ROOTS()
  868. {
  869.  /*
  870.   XmGraphRemoveRoots (graph, nodes, n_nodes);
  871.  */
  872. }
  873. /*
  874.  *
  875.  */
  876. LVAL Xm_Graph_Widget_Class_Method_SELECT_ARC()
  877. {
  878.   LVAL self, a;
  879.   Widget graph;
  880.   Widget arc;
  881.  
  882.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  883.   arc = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&a);
  884.   xllastarg();
  885.  
  886.   XmGraphSelectArc (graph, arc);
  887.  
  888.   return (self);            /* NPM */
  889. }
  890.  
  891. /*
  892.  *  FIX: 
  893.  */
  894. LVAL Xm_Graph_Widget_Class_Method_SELECT_ARCS()
  895. {
  896. /*
  897.   XmGraphSelectArcs (graph, arcs, n_arcs);
  898.  */
  899. }
  900.  
  901. /*
  902.  *  FIX
  903.  */
  904. LVAL Xm_Graph_Widget_Class_Method_SELECT_NODES()
  905. {
  906. }
  907.  
  908. /*
  909.  *
  910.  */
  911. LVAL Xm_Graph_Widget_Class_Method_UNSELECT_ARC()
  912. {
  913.   LVAL self, a;
  914.   Widget graph;
  915.   Widget arc;
  916.  
  917.   graph = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  918.   arc = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&a);
  919.   xllastarg();
  920.  
  921.   XmGraphUnselectArc (graph, arc); 
  922.  
  923.   return (self);            /* NPM */
  924. }
  925.  
  926. /*
  927.  *  FIX:
  928.  */
  929. LVAL Xm_Graph_Widget_Class_Method_UNSELECT_ARCS()
  930. {
  931. /*
  932.   XmGraphUnselectArcs (graph, arcs, n_arcs);
  933. */
  934. }
  935.  
  936. /*
  937.  *  FIX
  938.  */
  939. LVAL Xm_Graph_Widget_Class_Method_UNSELECT_NODES()
  940. {
  941. /*
  942.   XmGraphUnselectNodes (graph, nodes, n_nodes);
  943. */
  944. }
  945.  
  946. /*
  947.  * (send <graph_widget> :select_node <node_widget>)
  948.  */
  949. LVAL Xm_Graph_Widget_Class_Method_SELECT_NODE ()
  950. {
  951.   LVAL self, node;
  952.   Widget graph_widget;
  953.   Widget node_widget;
  954.  
  955.   graph_widget = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  956.   node_widget = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&node);
  957.   xllastarg();
  958.  
  959.   XmGraphSelectNode(graph_widget, node_widget);
  960.  
  961.   return (self);            /* NPM */
  962. }
  963.  
  964. /*
  965.  * (send <graph_widget> :unselect_node <node_widget>)
  966.  */
  967. LVAL Xm_Graph_Widget_Class_Method_UNSELECT_NODE ()
  968. {
  969.   LVAL self, node;
  970.   Widget graph_widget;
  971.   Widget node_widget;
  972.   
  973.   graph_widget = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  974.   node_widget = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&node);
  975.   xllastarg();
  976.  
  977.   XmGraphUnselectNode(graph_widget, node_widget);
  978.  
  979.   return (self);            /* NPM */
  980. }
  981.  
  982. /******************************************************************************
  983.  *
  984.  ******************************************************************************/
  985. Wc_XmGraph_Init()
  986. {
  987.   LVAL o_XM_GRAPH_WIDGET_CLASS;
  988.   LVAL o_XM_ARC_WIDGET_CLASS;
  989.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  990.   extern      xladdmsg();    /* from xlobj.c */
  991.   
  992.   /******************************* GRAPH WIDGET *********************************/
  993.   o_XM_GRAPH_WIDGET_CLASS =
  994.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_GRAPH_WIDGET_CLASS",
  995.                      xmGraphWidgetClass);
  996.  
  997.   /* a special :isnew method on this class allows for the creation of this
  998.      widget inside a scrolled window if the submessage keyword :scrolled 
  999.      is given ... */
  1000.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":ISNEW", 
  1001.        FTAB_Xm_Graph_Widget_Class_Method_ISNEW);
  1002.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":ADD_CALLBACK", 
  1003.        FTAB_Xm_Graph_Widget_Class_Method_ADD_CALLBACK);
  1004.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":SET_CALLBACK", 
  1005.        FTAB_Xm_Graph_Widget_Class_Method_SET_CALLBACK);
  1006.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":CENTER_AROUND_WIDGET",
  1007.        FTAB_Xm_Graph_Widget_Class_Method_CENTER_AROUND_WIDGET);
  1008.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":DESTROY_ALL_ARCS",
  1009.        FTAB_Xm_Graph_Widget_Class_Method_DESTROY_ALL_ARCS);
  1010.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":DESTROY_ALL_NODES",
  1011.        FTAB_Xm_Graph_Widget_Class_Method_DESTROY_ALL_NODES);
  1012.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":DESTROY_SELECTED_ARCS_OR_NODES",
  1013.        FTAB_Xm_Graph_Widget_Class_Method_DESTROY_SELECTED_ARCS_OR_NODES);
  1014.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_ARCS",
  1015.        FTAB_Xm_Graph_Widget_Class_Method_GET_ARCS);
  1016.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_NODES",
  1017.        FTAB_Xm_Graph_Widget_Class_Method_GET_NODES);
  1018.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_ARCS_BETWEEN_NODES",
  1019.        FTAB_Xm_Graph_Widget_Class_Method_GET_ARCS_BETWEEN_NODES);
  1020.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_NODE_ARCS",
  1021.        FTAB_Xm_Graph_Widget_Class_Method_GET_NODE_ARCS);
  1022.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_ROOTS",
  1023.        FTAB_Xm_Graph_Widget_Class_Method_GET_ROOTS);
  1024.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_SELECTED_ARCS",
  1025.        FTAB_Xm_Graph_Widget_Class_Method_GET_SELECTED_ARCS);
  1026.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":GET_SELECTED_NODES",
  1027.        FTAB_Xm_Graph_Widget_Class_Method_GET_SELECTED_NODES);
  1028.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":INPUT_OVER_ARC",
  1029.        FTAB_Xm_Graph_Widget_Class_Method_INPUT_OVER_ARC);
  1030.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":INSERT_ROOTS",
  1031.        FTAB_Xm_Graph_Widget_Class_Method_INSERT_ROOTS);
  1032.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":IS_POINT_IN_ARC",
  1033.        FTAB_Xm_Graph_Widget_Class_Method_IS_POINT_IN_ARC);
  1034.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":IS_SELECTED_ARC",
  1035.        FTAB_Xm_Graph_Widget_Class_Method_IS_SELECTED_ARC);
  1036.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":IS_SELECTED_NODE",
  1037.        FTAB_Xm_Graph_Widget_Class_Method_IS_SELECTED_NODE);
  1038.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":MOVE_ARC",
  1039.        FTAB_Xm_Graph_Widget_Class_Method_MOVE_ARC);
  1040.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":MOVE_NODE",
  1041.        FTAB_Xm_Graph_Widget_Class_Method_MOVE_NODE);
  1042.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, "NUM_ARCS:",
  1043.        FTAB_Xm_Graph_Widget_Class_Method_NUM_ARCS);
  1044.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":NUM_NODES",
  1045.        FTAB_Xm_Graph_Widget_Class_Method_NUM_NODES);
  1046.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":NUM_NODE_ARCS",
  1047.        FTAB_Xm_Graph_Widget_Class_Method_NUM_NODE_ARCS);
  1048.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":NUM_ROOTS",
  1049.        FTAB_Xm_Graph_Widget_Class_Method_NUM_ROOTS);
  1050.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":NUM_SELECTED_ARCS",
  1051.        FTAB_Xm_Graph_Widget_Class_Method_NUM_SELECTED_ARCS);
  1052.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":NUM_SELECTED_NODES",
  1053.        FTAB_Xm_Graph_Widget_Class_Method_NUM_SELECTED_NODES);
  1054.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":MOVE_ALL",
  1055.        FTAB_Xm_Graph_Widget_Class_Method_MOVE_ALL);
  1056.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":LAYOUT",
  1057.        FTAB_Xm_Graph_Widget_Class_Method_LAYOUT);
  1058.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":RELAY_SUBGRAPH",
  1059.        FTAB_Xm_Graph_Widget_Class_Method_RELAY_SUBGRAPH);
  1060.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":REMOVE_ARC_BETWEEN_NODES",
  1061.        FTAB_Xm_Graph_Widget_Class_Method_REMOVE_ARC_BETWEEN_NODES);
  1062.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":REMOVE_ROOTS",
  1063.        FTAB_Xm_Graph_Widget_Class_Method_REMOVE_ROOTS);
  1064.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":SELECT_ARC",
  1065.        FTAB_Xm_Graph_Widget_Class_Method_SELECT_ARC);
  1066.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":SELECT_ARCS",
  1067.        FTAB_Xm_Graph_Widget_Class_Method_SELECT_ARCS);
  1068.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":SELECT_NODE", 
  1069.        FTAB_Xm_Graph_Widget_Class_Method_SELECT_NODE);
  1070.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":SELECT_NODES", 
  1071.        FTAB_Xm_Graph_Widget_Class_Method_SELECT_NODES);
  1072.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":UNSELECT_ARC",
  1073.        FTAB_Xm_Graph_Widget_Class_Method_UNSELECT_ARC);
  1074.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":UNSELECT_ARCS",
  1075.        FTAB_Xm_Graph_Widget_Class_Method_UNSELECT_ARCS);
  1076.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":UNSELECT_NODE", 
  1077.        FTAB_Xm_Graph_Widget_Class_Method_UNSELECT_NODE);
  1078.   xladdmsg(o_XM_GRAPH_WIDGET_CLASS, ":UNSELECT_NODES", 
  1079.        FTAB_Xm_Graph_Widget_Class_Method_UNSELECT_NODES);
  1080.  
  1081.   /******************************** ARC WIDGET **********************************/
  1082.   o_XM_ARC_WIDGET_CLASS =
  1083.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_ARC_WIDGET_CLASS",
  1084.                      xmArcWidgetClass);
  1085.  
  1086.   /* A special :isnew method on this class overrides default Xt widget creation  
  1087.      routine on meta-class WIDGET_CLASS. We need to call special creator XmCreateArc(). */
  1088.   xladdmsg(o_XM_ARC_WIDGET_CLASS, ":ISNEW", 
  1089.        FTAB_Xm_Arc_Widget_Class_Method_ISNEW);
  1090.   
  1091.   s_CALLBACK_SELECTED_WIDGETS = xlenter("CALLBACK_SELECTED_WIDGETS");
  1092.   s_CALLBACK_NUM_SELECTED_WIDGETS = xlenter ("CALLBACK_NUM_SELECTED_WIDGETS");
  1093.   s_CALLBACK_SELECTED_ARCS = xlenter("CALLBACK_SELECTED_ARCS");
  1094.   s_CALLBACK_NUM_SELECTED_ARCS = xlenter("CALLBACK_NUM_SELECTED_ARCS");
  1095.   s_CALLBACK_OLD_TO = xlenter("CALLBACK_OLD_TO");
  1096.   s_CALLBACK_OLD_FROM = xlenter("CALLBACK_OLD_FROM");
  1097.   s_CALLBACK_NEW_TO = xlenter("CALLBACK_NEW_TO");
  1098.   s_CALLBACK_NEW_FROM = xlenter("CALLBACK_NEW_FROM");
  1099. }
  1100.